' Lines
' This program demonstrates the LINE statement.

CLS

delay% = 100                           ' controls delay between lines drawn

PRINT "Press any key to stop"

WHILE INKEY$ = ""
    x1pos% = INT(RND(1) * 490)          ' start coordinates
    y1pos% = INT(RND(1) * 296)
    x2pos% = INT(RND(1) * 390)          ' end coordinates
    y2pos% = INT(RND(1) * 296)
    LINE (x1pos%, y1pos%)-(x2pos%, y2pos%)
   
    FOR i% = 1 TO delay%                     ' delay loop
    NEXT i%

WEND
